home *** CD-ROM | disk | FTP | other *** search
- uses crt,dbpas,dos;
- var
- dbf : dbfobj;
- begin
- clrscr;
- OpenDB(DBF,'test.dbf');
- DBF^.List;
-
- DBF^.GetXY(10, 8,1,'Name: ','@!');
- DBF^.GetXY(10,10,2,'Addr: ','');
- DBF^.GetXY(10,12,3,'City: ','');
- DBF^.GetXY(32,12,4,'State: ','@!');
- DBF^.GetXY(43,12,5,'Zip: ','@9');
- readget;
-
- Gotoxy(1,15);
- DBF^.List;
- CloseDB(DBF);
- writeln;
- pause;
- end.